%			*****	 CMLADF.TEX	*****		12 August 1980

%	7-pt text, to 4.2 pt, 15 in, 60% reduction

\chcode'173=1 \chcode'175=2 \chcode'44=3 \chcode'26=4
\chcode'45=5 \chcode'43=6 \chcode'136=7 \chcode'1=8

\def\%{\char'45 }	% Note, the space after 45 is needed! (e.g.\%0)

\def\trace{\chpar0=} \def\jpar{\chpar1=} \def\ragged{\chpar8=}
\def\nskip{\hskip .5em plus .5em minus .2em}

\def\sepstar{\nskip{\sy\char'3}\nskip}	%\char3 is an asterisk in symbol font
\def\npg{\penalty 1000\hfilneg}		%negative paragraph glue
\def\pfill{\hskip .5em plus 5000pt\penalty 500\null\!
	\penalty 1000\hskip .5em plus 5000pt\!}
%		fill between end of "paragraph" text and a flush right element
%		formerly \hskip .5em plus 5000pt
%		last penalty inserted to try to suppress break before
%		affil, omitted again to try to avoid exceeding varsize
\def\null{\hbox{}}

\def \dummybox{\hbox to \colwd{\vbox to \count1 pt{\vfill\eject}}}

\font @=cmathx
\font a=cmr10	\font d=cmr7	\font f=cmr5
\font g=cmi10	\font j=cmi7	\font l=cmi5
\font q=cmb10
\font u=cmsy10	\font x=cmsy7	\font z=cmsy5
\font X=cmb7

\def\rm{\:a}\def\bf{\:q}

\def \sevenpt{\baselineskip 7pt \lineskip 1pt \lineskiplimit 1pt
	\def\strut{\lower 1.75pt\vbox to 7pt{}\penalty 1000}
	\def\rm{\:d} \def\sl{\:j} \def\bf{\:X} \def\sy{\:x}\rm}

\mathrm adf \mathit gjl \mathsy uxz \mathex @

\setcount0 1			% counter for numbering output segments

\setcount2 390


\setcount4 161			% width of single column
\setcount5 7			% width of gap between columns

\def \colwd{\count4 pt}
\def \intercol{\count5 pt}

\setcount6\count4 \advcount6 by\count5 \advcount6 by\count4
\def \lwd{\count6 pt}		% left-hand "half" of page contains 2
%				  columns and intervening gutter
%	  to split page which exceeds TEX's memory [varsize=17000]

\def \pagewd{665pt}		%measure of full page

\hsize\colwd \vsize\count2 pt \maxdepth 1pt	% one-column dimensions

\topbaseline 0pt		% make tops of all columns even
\jpar 1000			% override the usual line-break restrictions
\chpar17=0			% encourage breaks after explicit hyphens

\gdef \lr{L}			% lr = L for left half, R for right half

\def \textfont{\sevenpt}
\textfont

\def \name#1#2#3#4{		% control sequence for names:
%				1=last name; 2=rest of name; 3=listing; 4=affil
	\baselineskip 7pt
	\mark{#1}		%mark stripped last name for folios
	\hbox par \colwd {\textfont\strut\!	%each entry to be treated as a unit
		{\bf#1\!#2\! }\!	%name in bold
		#3\unskip\!		%rest of listing in roman
		\pfill{\strut\bf#4}\npg}
%				flush right society affiliations, in bold
	\penalty-10\vskip 0pt plus 2pt}
%				break okay after entry, allow leading if needed

\output{\outa}
\def \outa{\output{\outb}\save1\page }
\def \outb{\output{\outc}	% now we print the left half page
	\vbox to size{\baselineskip 0pt\lineskip 0pt
		\hbox to \lwd{\box1\hfil\page} }
	\gdef\lr{R} }
\def \outc{\output{\outd}\save1\page }
\def \outd{\output{\outa}
	\vbox to size{\baselineskip 0pt\lineskip 0pt
		\hbox to \pagewd{\dummybox\hfil\dummybox
			\hfil\box1\hfil\page}}
	\gdef\lr{L} }

\gdef \closeout{\gdef\lr{R}
	\vfill\end}